﻿Imports Entidades
Imports Negocio
Public Class FormPedido
    Private cat As Pedido
    Private dcat As daoPedido
    Private Sub FormPedido_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        cargolist() ' método que carga el listbox 
        cat = New Pedido


    End Sub
    Private Sub cargolist()
        dcat = New daoPedido
        Dim arr As ArrayList = dcat.consultapedido 'LA CAPA DE NEGOCIO ME DEVUELVE UN ARRAYLIST
        Dim nodo As Categorias = New Categorias
        ' recorro el arraylist cargando el nodo.
        ' cargo el listbox con los datos del nodo.

        For Each nodo In arr
            List_p.Items.Add(nodo.nombre)


        Next


    End Sub
End Class